﻿Public Class Form1
  Private Sub NumericUpDown1_ValueChanged( _
          ByVal sender As System.Object, _
          ByVal e As System.EventArgs) _
          Handles NumericUpDown1.ValueChanged
    Me.Opacity = _
        Me.NumericUpDown1.Value / 100
  End Sub
End Class
